Private Sub cmdSearch_Click()
    frmWebBrowser.brwWebBrowser.Navigate ("http://www.google.com/search?hl=en&source=hp&q=" & txtGoogle.Text & "&aq=f&oq=&aqi=g10")
    Unload Me
End Sub

Private Sub cmdSearch2_Click()
    frmWebBrowser.brwWebBrowser.Navigate ("http://www.bing.com/search?q=" & txtBing.Text & "&form=QBLH&qs=n")
    Unload Me
End Sub

Private Sub cmdSearch3_Click()
    frmWebBrowser.brwWebBrowser.Navigate ("http://search.yahoo.com/search?p=" & txtYahoo.Text & "&fr=yfp-t-501&toggle=1&cop=mss&ei=UTF-8")
    Unload Me
End Sub

Private Sub cmdSearch4_Click()
    frmWebBrowser.brwWebBrowser.Navigate ("http://search.aol.com/aol/search?s_it=comsearch40&query=" & txtAOL.Text & "&do=Search")
    Unload Me
End Sub

Private Sub cmdSearch5_Click()
    frmWebBrowser.brwWebBrowser.Navigate ("http://www.ask.com/web?q=" & txtYahoo.Text & "&qsrc=0&o=0&l=dir")
    Unload Me
End Sub

Private Sub Form_Load()
    lblTime.Caption = Time
    lblDate.Caption = Date
End Sub

Private Sub Timer1_Timer()
    Timer1.Interval = 1000
    lblTime.Caption = Time
End Sub

Private Sub txtAOL_Click()
    If txtAOL.Text = "AOL" Then
        txtAOL.Text = ""
    Else
        txtAOL.Text = "AOL"
    End If
End Sub

Private Sub txtAsk_Click()
    If txtAsk.Text = "Ask" Then
        txtAsk.Text = ""
    Else
        txtAsk.Text = "Ask.com"
    End If
End Sub

Private Sub txtBing_Click()
    If txtBing.Text = "Bing" Then
        txtBing.Text = ""
    Else
        txtBing.Text = "Bing.com"
    End If
End Sub

Private Sub txtGoogle_Click()
    If txtGoogle.Text = "Google" Then
        txtGoogle.Text = ""
    Else
        txtGoogle.Text = "Google"
    End If
End Sub

Private Sub txtYahoo_Click()
    If txtYahoo.Text = "Yahoo!" Then
        txtYahoo.Text = ""
    Else
        txtYahoo.Text = "Yahoo!"
    End If
End Sub
